home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / icpr20c.arc / STEP202.CMD < prev    next >
OS/2 REXX Batch file  |  1987-07-09  |  7KB  |  280 lines
  1. ; This file was created using MAKESTEP from the package ICPR20
  2. ; designed by Wayne Wolf.  ICPR20 Copyright 1987
  3. ; You may modify this file in any way you wish but since the make
  4. ; files utilize the existing cmd files I discourage it.  If you have
  5. ; comments or useful modifications please contact me, either at
  6. ; unix: ww@ufcsg.ufl.edu  or bbs: PC-EXCHANGE at 404-977-6686.
  7. Page1:
  8.   Clear
  9.   Message "Menu of Bulletin Boards for the 202 area."
  10.   Message "██████████████████████████████████████████████████████████████████████████████"
  11.   Locate 22,15
  12.   Message "          "
  13.   Locate 0,45
  14.   Message "Mode:"
  15.   Locate 0,51
  16.   Find S7 "H"
  17.   IF Found
  18.      Message "Hayes"
  19.   ELSE
  20.      Message "Racal"
  21.   ENDIF
  22.   Locate 0,60
  23.   Message "Redial:"
  24.   Locate 0,68
  25.   Find S8 "A"
  26.   IF Found
  27.      Message "Active"
  28.   ELSE
  29.      Message "Inactive"
  30.   ENDIF
  31.   Locate 2,0
  32.   Message " 1 --> Darwin PcBoard (251-9206)"
  33.   Message " 2 --> Three Winks (258-9044)"
  34.   Message " 3 --> The Market (299-8667)"
  35.   Message " 4 --> Mad Faces (350-1299)"
  36.   Message " 5 --> TComm (428-7931)"
  37.   Message " 6 --> Tech Connect (430-0091)"
  38.   Message " 7 --> Sterling Exchange (435-0836)"
  39.   Message " 8 --> E. Coast Forth Board (442-8695)"
  40.   Message " 9 --> Telecomm BBS (478-9850)"
  41.   Message "10 --> Home DBA (488-4709)"
  42.   Message "11 --> Help Screen (524-3982)"
  43.   Message "12 --> Govt Computer Ntwrk (537-1045)"
  44.   Message "13 --> ISI-RBBS (642-9115)"
  45.   Message "14 --> Net Exchange (689-3561)"
  46.   Message "15 --> InterConnect (827-5762)"
  47.   Message "D  --> Disconnect and exit to area code dialer     S  --> Switch modes"
  48.   Message "E  --> Execute ICPR20 from within Procomm          R  --> Toggle Redial mode "
  49.   Message "P  --> View next page"
  50.   Locate 22,0
  51.   Message "Your Choice -->"
  52.   Goto Retype1
  53. ;
  54. Page2:
  55.   Clear
  56.   Message "Menu of Bulletin Boards for the 202 area."
  57.   Message "██████████████████████████████████████████████████████████████████████████████"
  58.   Locate 22,15
  59.   Message "          "
  60.   Locate 0,45
  61.   Message "Mode:"
  62.   Locate 0,51
  63.   Find S7 "H"
  64.   IF Found
  65.      Message "Hayes"
  66.   ELSE
  67.      Message "Racal"
  68.   ENDIF
  69.   Locate 0,60
  70.   Message "Redial:"
  71.   Locate 0,68
  72.   Find S8 "A"
  73.   IF Found
  74.      Message "Active"
  75.   ELSE
  76.      Message "Inactive"
  77.   ENDIF
  78.   Locate 2,0
  79.   Message "16 --> Teleware (941-2386)"
  80.   Message "D  --> Disconnect and exit to area code dialer     S  --> Switch modes"
  81.   Message "E  --> Execute ICPR20 from within Procomm          R  --> Toggle Redial mode "
  82.   Message "P  --> View next page"
  83.   Locate 22,0
  84.   Message "Your Choice -->"
  85.   Goto Retype2
  86. ;
  87. Retype1:
  88.   Locate 22,15
  89.   Get S3
  90.   Switch S3
  91.       Case "P"
  92.          Goto Page2
  93.       EndCase
  94.       Case "E"
  95.          EndSwitch
  96.          Execute "Make.cmd"
  97.       EndCase
  98.       Case "R"
  99.          EndSwitch
  100.          Goto Activate
  101.       EndCase
  102.       Case "S"
  103.          EndSwitch
  104.          Goto Switch
  105.       EndCase
  106.       Case "M"
  107.          Clear
  108.          Message "Manual dial for area "
  109.          Locate 0,21
  110.          Message S2
  111.          Message "What number do you wish to dial --> "
  112.          Locate 1,36
  113.          Get S6
  114.          Assign S5 "Manual dialing."
  115.          Execute "Dial"
  116.       EndCase
  117.       Case "D"
  118.          Execute "Discnect"
  119.       EndCase
  120.       Case "1"
  121.          Assign S5 "Dialing Darwin PcBoard at 251-9206."
  122.          Assign S6 "2519206"
  123.          Execute "Dial"
  124.       EndCase
  125.       Case "2"
  126.          Assign S5 "Dialing Three Winks at 258-9044."
  127.          Assign S6 "2589044"
  128.          Execute "Dial"
  129.       EndCase
  130.       Case "3"
  131.          Assign S5 "Dialing The Market at 299-8667."
  132.          Assign S6 "2998667"
  133.          Execute "Dial"
  134.       EndCase
  135.       Case "4"
  136.          Assign S5 "Dialing Mad Faces at 350-1299."
  137.          Assign S6 "3501299"
  138.          Execute "Dial"
  139.       EndCase
  140.       Case "5"
  141.          Assign S5 "Dialing TComm at 428-7931."
  142.          Assign S6 "4287931"
  143.          Execute "Dial"
  144.       EndCase
  145.       Case "6"
  146.          Assign S5 "Dialing Tech Connect at 430-0091."
  147.          Assign S6 "4300091"
  148.          Execute "Dial"
  149.       EndCase
  150.       Case "7"
  151.          Assign S5 "Dialing Sterling Exchange at 435-0836."
  152.          Assign S6 "4350836"
  153.          Execute "Dial"
  154.       EndCase
  155.       Case "8"
  156.          Assign S5 "Dialing E. Coast Forth Board at 442-8695."
  157.          Assign S6 "4428695"
  158.          Execute "Dial"
  159.       EndCase
  160.       Case "9"
  161.          Assign S5 "Dialing Telecomm BBS at 478-9850."
  162.          Assign S6 "4789850"
  163.          Execute "Dial"
  164.       EndCase
  165.       Case "10"
  166.          Assign S5 "Dialing Home DBA at 488-4709."
  167.          Assign S6 "4884709"
  168.          Execute "Dial"
  169.       EndCase
  170.       Case "11"
  171.          Assign S5 "Dialing Help Screen at 524-3982."
  172.          Assign S6 "5243982"
  173.          Execute "Dial"
  174.       EndCase
  175.       Case "12"
  176.          Assign S5 "Dialing Govt Computer Ntwrk at 537-1045."
  177.          Assign S6 "5371045"
  178.          Execute "Dial"
  179.       EndCase
  180.       Case "13"
  181.          Assign S5 "Dialing ISI-RBBS at 642-9115."
  182.          Assign S6 "6429115"
  183.          Execute "Dial"
  184.       EndCase
  185.       Case "14"
  186.          Assign S5 "Dialing Net Exchange at 689-3561."
  187.          Assign S6 "6893561"
  188.          Execute "Dial"
  189.       EndCase
  190.       Case "15"
  191.          Assign S5 "Dialing InterConnect at 827-5762."
  192.          Assign S6 "8275762"
  193.          Execute "Dial"
  194.       EndCase
  195.       Default
  196.          Message " "
  197.          Message "Invalid choice, please retype"
  198.          Locate 22,15
  199.          Message "          "
  200.          Goto Retype1
  201.       EndCase
  202.   EndSwitch
  203. ;
  204. Retype2:
  205.   Locate 22,15
  206.   Get S3
  207.   Switch S3
  208.       Case "P"
  209.          Goto Page1
  210.       EndCase
  211.       Case "E"
  212.          EndSwitch
  213.          Execute "Make.cmd"
  214.       EndCase
  215.       Case "R"
  216.          EndSwitch
  217.          Goto Activate
  218.       EndCase
  219.       Case "S"
  220.          EndSwitch
  221.          Goto Switch
  222.       EndCase
  223.       Case "M"
  224.          Clear
  225.          Message "Manual dial for area "
  226.          Locate 0,21
  227.          Message S2
  228.          Message "What number do you wish to dial --> "
  229.          Locate 1,36
  230.          Get S6
  231.          Assign S5 "Manual dialing."
  232.          Execute "Dial"
  233.       EndCase
  234.       Case "D"
  235.          Execute "Discnect"
  236.       EndCase
  237.       Case "16"
  238.          Assign S5 "Dialing Teleware at 941-2386."
  239.          Assign S6 "9412386"
  240.          Execute "Dial"
  241.       EndCase
  242.       Default
  243.          Message " "
  244.          Message "Invalid choice, please retype"
  245.          Locate 22,15
  246.          Message "          "
  247.          Goto Retype2
  248.       EndCase
  249.   EndSwitch
  250. ;
  251. Switch:
  252.   Find S7 "R"
  253.   IF Found
  254.      Tran "I!"
  255.      Pause 2
  256.      Tran "ATZ!"
  257.      Assign S7 "H"
  258.      Rflush
  259.   ELSE
  260.      Tran "ATZ I!"
  261.      Pause 2
  262.      Tran "!"
  263.      Assign S7 "R"
  264.      Rflush
  265.   ENDIF
  266.   Pause 3
  267.   Rflush
  268.   Goto Page1
  269. ;
  270. Activate:
  271.   Find S8 "A"
  272.   IF Found
  273.      Assign S8 "I"
  274.   ELSE
  275.      Assign S8 "A"
  276.   ENDIF
  277.   Goto Page1
  278. ;
  279. Exit
  280.